home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 08-02.BAS < prev    next >
BASIC Source File  |  1991-06-06  |  563b  |  35 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. CONST Pages = 4
  6.  
  7. IF FGtestmode(13,Pages) = 0 THEN
  8.    PRINT "This program requires a 320 x 200 EGA graphics mode."
  9.    STOP
  10. END IF
  11.  
  12. OldMode = FGgetmode
  13. FGsetmode 13
  14.  
  15. FOR Page = 0 TO Pages-1
  16.    FGsetpage Page
  17.    RectColor = Page + 1
  18.    FGsetcolor RectColor
  19.    FGrect 0, FGgetmaxx, 0, FGgetmaxy
  20.    FGsetcolor 0
  21.    FGlocate 12, 17
  22.    CharString$ = "Page" + STR$(Page)
  23.    FGtext CharString$, 6
  24. NEXT
  25.  
  26. FOR Page = 0 TO Pages-1
  27.    FGsetvpage Page
  28.    FGwaitkey
  29. NEXT
  30.  
  31. FGsetmode OldMode
  32. FGreset
  33.  
  34. END
  35.